home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / ClipTranslator.lha / ClipTranslator / ClipTranslator.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-13  |  1KB  |  51 lines
  1. /*
  2.  *  $VER: ClipTraslator.rexx  v.1.0
  3.  *
  4.  *  Programmino arexx necessario per far funzionare il programma
  5.  *  ClipTraslator v.1.0 di Paolo Stefanucci.
  6.  *  Deve stare nella stessa cartella di Cliptraslator.
  7.  *  Per maggiori informazioni leggere il file Cliptraslator.guide
  8.  *
  9.  *  basato su traduci.rexx scritto da Arturo Ortino per Ital 2.0+
  10.  *
  11.  *  N.B. modificare questo file per inserire il percorso di ITAL
  12. */
  13.  
  14. options results
  15.  
  16. /*
  17.  *  Dobbiamo controllare se Ital è stato già lanciato,
  18.  *  cercando una porta di nome 'ITAL' ...
  19.  *  Se Ital non è gia presente lo lanciamo
  20.  *  con .... address command "Work:Inglese/Varie/Ital NOREQ"
  21.  *  poi, aspettiamo fino a quando
  22.  *  Ital non è pronto per ricevere ordini
  23.  *  con .... address command "waitforport ITAL"
  24.  *  NOTA (1): Assumiamo che Ital si trovi nella directory
  25.  *          'Work:Inglese/Varie'
  26.  *  NOTA (2): Il comando 'waitforport' deve essere in una
  27.  *          delle directory di ricerca assegnate con il
  28.  *          comando 'path' (ovviamente).
  29. */
  30.  
  31.  
  32. if ~show('P','ITAL') then
  33.     DO
  34.     address command "DH2:DTP/Traduttore/Ital ZIP"
  35.     address command "WaitForPort ITAL"
  36.     END
  37.  
  38. address 'ITAL'        /* Contattiamo Ital */
  39.  
  40. 'T:Clipboard.tmp'    /* Ordina a Ital di tradurre il
  41.              * file "miofile"; lo stesso
  42.              * verrà salvato nella directory di
  43.              * provenienza (T:) con il
  44.              * nome "miofile.TRA"
  45.              */
  46.  
  47. /* 'QUIT'              se si ha poca memoria ram si può quittare Ital! */
  48.  
  49.  
  50. exit (0)
  51.